home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 95 / pascal / fmtsubs.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-01-15  |  1.5 KB  |  45 lines
  1. {=========================================================================
  2.  
  3.         FmtDsk( Drive, Type )
  4.                 Format a disk in drive a or b of type Type (see above)
  5.                 Returns FALSE if not able to format disk, or
  6.                 TRUE if all is well.
  7.  
  8. ==========================================================================}
  9.  
  10. FUNCTION FmtDsk( Drive : Flop_Typ; Typ : Fmt_Typ ) : BOOLEAN; EXTERNAL;
  11.  
  12.  
  13. {=========================================================================
  14.  
  15.         WrtVer( Func ) sets / inquires status of write verify flag on
  16.         floppy disk systems.
  17.         returns TRUE if write verify is on, else FALSE
  18.  
  19. ==========================================================================}
  20.  
  21.  
  22. FUNCTION WrtVer( Func : VerTyp ) : BOOLEAN;  EXTERNAL;
  23.  
  24. {=========================================================================
  25.  
  26.         IsDrive( dnum ) returns TRUE if drive DNUM is an installed drive.
  27.         this is NOT reliable in the case of installable devices such as
  28.         ramdisks or hard drives, since <resetting> the computer DOES NOT
  29.         tell the system to clear out this info.
  30.  
  31. ===========================================================================}
  32.  
  33. FUNCTION IsDrive( Dnum : Drv_Range ) : BOOLEAN; EXTERNAL;
  34.  
  35.  
  36.  
  37. {=========================================================================
  38.  
  39.         NumDriv returns the number of floppy disk drives connected.
  40.  
  41. ==========================================================================}
  42.  
  43. FUNCTION NumDriv : Flop_Typ; EXTERNAL;
  44.  
  45.